home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Python 1.4 / Python 1.4 source / Mac / Compat / rmdir.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-03-18  |  387 b   |  21 lines  |  [TEXT/CWIE]
  1. /* Rmdir for the Macintosh.
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  3.    Pathnames must be Macintosh paths, with colons as separators. */
  4.  
  5. #include "macdefs.h"
  6.  
  7. int
  8. rmdir(path)
  9.     char *path;
  10. {
  11.     IOParam pb;
  12.     
  13.     pb.ioNamePtr= (StringPtr) Pstring(path);
  14.     pb.ioVRefNum= 0;
  15.     if (PBDelete((ParmBlkPtr)&pb, FALSE) != noErr) {
  16.         errno= EACCES;
  17.         return -1;
  18.     }
  19.     return 0;
  20. }
  21.